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PASSWRITE_REALE Write an H_floating in E format 16-s A, p- 138 
Sep 
MODULE PASSWRITE_REALE_H ( % {ETLE ‘Write an H.floa 


i f 
TD ENT = *1-002' 9. BASWRIRE 


4 
4 
ti 
File: PASWRIREH. ‘332 Edit: SBL1002 


BEGIN 


' 
PRS EESE TICES ISTE ESSE TST T TTP TCP PCC c ccc ieee c circ citi citi ici iici iit 
' 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 
!* DIGITAL Fe OE CENVED CORPORATION, - MAYNARD. MASSACHUSETTS. 
LL RIGHTS RESERVED. 


L 
HIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND Sag 
NLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Sitter OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 


iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!® TRANSFERRED. 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
te eonpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


ae ep eeeneeneeaeaeeenennnnnnene 


Oooo°c[eo 


LR R ERRATA 
' 


++ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains procedures which write an H_floating in 
exponential notation to a textfile or string. 


' 

i 

i 

i 

i 

i 

i 

i 

ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 

i 
i 
le 


1-001 = Original. SBL 1-April-1981 
1-002 - Make total-width a Pl eneuord. SBL 30-June-1982 
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PARSURITE REALE Write an H floating in E format 
1-002 Declarations 


XSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE "RTLIN:PASPROLOG'; 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSWRITE_REALE_H: NOVALUE 
PASSWRITEQ_REALE_H: NOVALUE; 


MACROS: 

NONE 
EQUATED SYMBOLS: 
NONE 

FIELDS: 
NONE 
OWN STORAGE: 
NONE 


a 


dD 6 

6-Sep-1984 02:23:21 AX-11 Bliss-32 V4.0-74 

aa 95:83:86 PASRTL. SRC IPASWRIREH.B 231 
! Externals, Linkages, PSECTs, structures 


! Write to textfile 
! Write to string 
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PASSWRITE_REALE Write an H floating in E format 16-Sep-19 4 06:93) AX-11 tt Fh les Page 3| P 
1-002 PASSWRITE_REALE_H = Write H_floating in E forma 14-Sep-1984 12:52:06 PASRTL.SRCJPASWRIREH.B52;1 (3) | 1 
H ¢ 0143 1 XSBTTL 'PASSWRITE_REALE_H = Write H_floating in E format to textfile' | ; 
; 144 1 GLOBAL ROUTINE passuni le REALE_ : 
; 4 145 1 PFY: FF SPASSPFOU_FILE VARIABLE, ' File variable $ 
; 5 166 1 VALUE_0,VALUE_1,VALUE_2,VALUE_3, ! Value to write : 
; 8 0147 1 TOTAL-WIDTH: SIGNED, i Total field width | ; 
3; § 0148 1 ERROR ! Error unwind address ; 
: 88 0149 1 ): NOVALUE = | 3 
; 689 139 1 | ; 
; 90 151 1 !44 : 
; 4! 136 : FUNCTIONAL DESCRIPTION: : 
2 0154 '? This procedure writes an H floating value in exponential notation | ; 
; Se oiee : } to the specified textfile. : 
; 38 ae t4 : CALLING SEQUENCE: | : 
; 98 0159 1 | CALL PASSWRITE_REALE_H (PFV.mr.r, VALUE.rh.v, TOTAL_WIDTH.rl.v : 
> 99 0160 1 | C, ERROR.j.rJ) ; 
: 100 0161 1! : 
3 1 b16¢ 1 ! FORMAL PARAMETERS: ; 
: Ie 0165 1! : 
s 7 0164 1! PFV - The Pascal File Variable (PFV) passed by reference. ; 
3 ie Bie? : The structure of the PFV is defined in PASPFV.REQ. | : 
; 106 0167 1! VALUE - The H_floating value to write by immediate value. | ; 
3 + 14 bie6 : Note Ehat this takes up four argument List positions. 
3 199 gino ' TOTAL_WIDTH - Total field width. | 
; 1 bi¢ : ERROR - Optional. Address to unwind to if an error occurs. 
; 113 0174 1 =! IMPLICIT INPUTS: 
3 (116 0175 1! 
3 6115 0176 1! NONE 
; 116 0177 1! 
s 117 0178 1°! IMPLICIT OUTPUTS: 
: #118 0179 1! 
: 119 0180 1! NONE 
: 120 0181 1! 
3 tei Biss 1 ! ROUTINE VALUE: 
; \¢¢ 0183 1! 
3 iz 0184 1 | NONE | 
; 158 6184 1 i SIDE EFFECTS 
; 158 6189 1 i — ha ert | 
3 14 Hh 3 ! If the file is the standard file OUTPUT, it is implicitly opened. 
; 139 0190 1 ! SIGNALLED ERRORS: | 
; 130 tha 1! : 
s 331 196 77 LINTOOLON = Line too Long ; 
3 136 813 1! NEGWIDDIG - negative Width or Digits specification is not allowed 
: 137 194 1! 
, ¥ 195 1 !-- 
; 135 136 1 
; 1 19 BEGIN | 
3; 1 198 
; «138 199 BUILTIN 
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PASSWRITE_REALE Write an H floating in E format 16-Sep-1984 02:23:21 AX-11 Bliss-32 V4.0-74 P 4 
1-003 PASSWRITE_REALE_H = Write H_floating in E forma 1 30071382 95:83:84 PASRTL SRCIPASURIREH B92: 1 ne (3) 
00 ACTUALCOUNT; 
: hs REF SPAS$FCB_CONTROL_BLOCK 1 Fil l block | 
: . ‘ ! e contro oc 

§ FIELD WIDTH: SIGNED, ! Minimum/actual width 
G 0 REMAINING _WIDT ! Maximum width 
5 0 PFV_ADDR: “VOLATILE, i Enable argument 
§ 0 UNWIND_ACT: VOLATILE, ' Enable argument 
: ERROR_ADDR: VOLATILE; ! Enable argument 
9 1 ENABLE | 
9 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler | 

1 14 
§ , Get ERROR parameter, if present. 
5 1 ‘ | 
g | IF ACTUALCOUNT () GEQU 7 
4 1 ERROR_ADDR = .ERROR; : set unwind address 
° 5 PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 

1¢ 

| Validate PFV and get PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 

set unwind action to unlock file. 

UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 

bo common initialization. 

PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


'¢ 
: Get minimum and maximum widths. Check for invalid width. 


PIPIPOIPIPIPIPOPINIPOPINIPIPIPINIPI NPN NPN 


109 CS CS OS OD Od 09 09 NI NIN SS NS NPA AAA AAA AA IIIT FP a? 
SRR RS ES VaNS FANS SSSISSF a “ 


FIELD WIDTH = .TOTAL_WIDTH; | 
IF :FIELD_W1DTH LSS 0 | 

$PAS$IO_ERROR (PAS$_NEGWIDDIG,O); | 
REMAINING WIDTH = .FCB CFCBSA_RECORD.END) - .FCB CFCBSA_RECORD_CUR); 


o 


+ 
Do the conversion. If it fails, signal an error. 


IF NOT PASSCVT_H_T (VALUE_0 ' Value to convert 
FCB CFCBSA_RECORD_CUR],! Destination 


ee a ed eed ed ee ce ed ee Se a a ee ce a a a ec ae ce a ce ee a ee ce ce ee ec ed ee ed ed ee ee ed ed oe eed 
SOOOOOOOOCOOSOCOOSOSOSCOSOOOOOSOOSS SOOO OCOCOOSOOOOOCOOO OOO OOOO OOCOCOOOOOOO 
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PUPP BB BBE BEE BE EAI inoronononono nor 


PoPoRonoNnoPononofnofnons 


oovoono 
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=v 


PASSURITE REALE 18- se} 1384 96: g3: $i AX-11 Bliss-32 V4.0-7 Page 5 


in € for | 
Write H. rttoating in E forma 14-Sep-19 PASRTL. SRCJPASWRIREH. 2;1 (3) 


3a 
I | 
FIELD WIDTH, | Mininun/actual width | 
-REMATNING_WIDTH) i Maximum width | 

i 


tt st 


"SPASSIO. ERROR (PAS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); | 


14 | 
- Advance the record pointer. 


FCB CFCBSA_RECORD_CUR) = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; 

be 

i Call WRITE epilogue routine to move the Last character written to the 
i. user's buf fer and to unlock the file variable. 

PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 

RETURN; 


END; ! End of routine PASSWRITE_REALE_H 


PARUVHOSRIE APOIO Dee 


Mororonoforoerofry 


-TITLE PASSWRITE_REALE_H eo an H_ floating in E form 
a 
«IDENT \1-002\ 


-EXTRN PASS$WRITE_REALE H 
-EXTRN PASSWRITED REALE 


“EXTRN PASSSIN NIT WRI 
“EXTRN ASSSSIGNAL. PASSK_NEGWIDDIG 
“EXTRN Passevt PASSK~LINTOOLON 
“EXTRN PASSSEND NoRite 


-PSECT _PASSCODE.NOWRT, SHR, PIC.2 


O1FC 00000 .ENTRY PASSWRITE_REALE_H, Save R2,R3.R4,R5,.R6,R7.- ; 0144 
58 000000006 00 9 00002 MOVAB PASS$S$SIGNAL, R8 : 
SE 10 ¢ 0009 SUBL2 #16, SP : 
04 AE C 0000C CLRQ ERROR_ADDR ; 0197 
OC AE D4 9 OF CLRL FV_A ; 
6D 0067 CF DE 0001 MOVAL 4$,~(FP) ; | 
07 6c 91 0001 CMPB (AP), ; 0217 | 
5 1f OOO1A BLSSU 1S : 
04 AE 1¢ AC 09 001C MOVL ERROR, ERROR_ADDR : 0219 
56 04 AC 00 00021 1$ MOVL PEV. as : 0221 
Oc AE 36 D0 90 5 MOVL F 
000000006 if 029 JSB PASSSVACIDATE PFV + 0227 
08 AE 1 =O 002F MOVL UNWIND _AC 3: 0253 
000000006 0 1 99 3 JSB PASShINGT QRITE : 0239 
6E 18 AC OD 0 MOVL TOTAL_WIDTH, FIELD_WIDTH > 0245 
OA 18 0003D BGEO 2s > 0246 
F ps 003F CLRL = = (SP) > 0248 | 
7E 006 8F 9A 00041 MOVZBL #PASSK_NEGWIDDIG, -(SP) : | 
} 
| 


H 6 


PASSWRITE_REALE Write an H floating in E forma 16-Se 4 AX-11 Bliss-32 V4.0 
ti PASSWRITE_REALE_H : Write H A floating in E forma 14- $01 38 93: 3: 66 PASRTL.SRC PASWRIREH. 5 231 
68 02 FB ots CALLS #2, PASSSSIGNAL 
52 FO. OA? EC AZ C3 00049 2$ SUBL3 =20(FCB) “16<F cB). REMAINING_WIDTH 
52 DD Out PUSHL REMAINING W 
04 Ag F 2] PUSHAB FABLD WID ye 
68 AC OF Oo08? PUSHIN VALUECD. 
000000006 00 4 F 005A CALLS 4&4, PASSCVT_H_T 
E 9 E8 00061 BLBS 
7E C3 0064 SUBL3 REMAINING _WIDTH, FIELD_WIDTH, -(SP) 
ze 006 Br 9A 0 A MOVZBL apAsS L INTOOLON, -(SP) 
6 3 FB 6 : CALLS PASS$SSIG 
EC A? 6 CO 00072 3$: ADDL2 FIELD_WIDTH, -20(FCB) 
000000006 00 16 00076 JSB PASSSEND_WRITE 
04 0007C¢ RET 
0000 0007D 4$: -WORD Save nothing 
50 08 AC DO 0007F MOVL (AP), RO 
50 04 AO DO 00083 MOVL  4(RO). RO 
F4 AO SF 00087 PUSHAB ERROR_ADDR 
F8 AO 9F OO08A PUSHAB UNWIND ACT 
FC AO 9F 0008D PUSHAB PFV_ADDR 
03 DD 00090 PUSHL #3 
— oD 90092 PUSHL  $P 
7E 04 AC 7D 00094 OVO 4(AP), <(SP) 
000000006 00 03 FB 90098 CALLS #3, PAS$$IO_HANDLER 


; Routine Size: 160 bytes, Routine Base: _PASSCODE + 0000 


027 1 
0279 1 !<BLF/PAGE> 
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PASSWRITE_REALE Write an H_floating in E format 1b-se -1 2:23:21 AX=11 Bliss-32 V4.0-74 Page 7 
ati PASSURITEVREALE.Ho= Orite H floating in E form 1 7330-1384 93:83:86 PASRTL SRE SPASURIREH. B92: 1 . (4) 
; 9 1 ZSBITL 'PASSWRITEV_REALE_H = Write H floating in E format to string’ 
3 1 GLOBAL ROUTINE PASSWRITEV_REALE_H ( 
; § 1 MAX_LENGTH: WORD, ! Maximum Length of string 
; 1 STRING_LINE: REF VECTOR C, WORD], ' String to write to 
; 4 1 VALUEO;VALUE1, VALUE2, VALUES, i Value to write 
: 5 4 TOTAL_WIDTH: SIGNED, i Total field width 
: 6 1 ERROR i Error unwind address | 
H 0 8 : ) : NOVALUE = 
: 6 89 1 I+ 
; 0 oy : FUNCTIONAL DESCRIPTION: 
: 35 1 / This procedure writes an H_floating in exponential format 
$ 8 7 ' } to the specified string. 
; 95 CALLING SEQUENCE: 
: 0297 1: CALL PASS$WRITEV_REALE_H (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
3 0998 : VALUE.rh.v, TOTAL_QIDTH.rl.v C, ERROR.j.rJ) 
: p a9 | FORMAL PARAMETERS: 
; 0308 ’ ! MAX_LENGTH - The maximum Length of STRING_LINE. 
; 8308 : STRING_LINE - A varying string to which the output will be appended. 
; 0306 1! VALUE - The value to write. Note that it is passed by immediate 
3 ? S44 ’ value and occupies four argument List positions. 
; 349 0309 ; TOTAL_WIDTH - The width of the field to write. 
: 251 0311 1! ERROR - Optional. If specified, the address to unwind to 
3 $26 b3i¢ 1! in case of an error. 
g $2 0313 1! 
; 54 Bete 1 ! IMPLICIT INPUTS: 
$ 239 0315 1! 
; 256 0316 1! NONE 
; TH S34 1! 
H 58 0318 1 ! IMPLICIT OUTPUTS: 
3 +44 0319 1! 
3 60 0320 1! NONE 
; 61 B35. 1! 
3 o¢ 03 § 1 ! ROUTINE VALUE: 
; 26 83 1! 
: 264 41! NONE | 
3: 265 8 5 1! 
; 66 $ 1 ! SIDE EFFECTS: 
# ieee 
> 269 § 1: 
: 0 ; 0 1 ! SIGNALLED ERRORS: 
3 271 Be 
: i § ! : See PASSWRITE_REALE_H 
: 27% 4 1 ie 
: 275 5 4 | 
; 276 6 2 BEGIN | 


+ 
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PASSWRITE_REALE Write an H_floating in E format 1b-se 1984 02:23:21 AX-11 Bliss-32 V4.0-74 Page 8 
1-002 PASSURITEV-REALE >= Urite H floating in E form e-kepelond $3:8o.05 — FeAsnt de Spagubtacn 632.1 ” a 
: 277 7 
3 a 8 LOCAL 
s har PFV: SPASSPFV aN na 5 ! Pascal File Variable 
; 280 40 ARG_LIST: VECTOR [7, LONGI, ! Argument List 
; 28) 41 PFV-ADDR: VOLATILE, ' Enable argument 
: a tg UNWIND _ACT: VOLATILE, ' Enable argument 
: $7 ERROR_ADDR: VOLATILE; ! Enable argument 
; Bs 8 45 BUILTIN 
$38 5 re] ACTUALCOUNT; ! Count of arguments 
3 Hey 8 rh ENABLE 
2 $8) rH PASSSIO_HANDLER ‘{PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 3) 1 i" t ERROR ter, if t 
; ! Ge parameter, present. 
: $38 0388 i. 
> 294 0354 
; 295 0355 IF ACTUALCOUNT () GEQU 8 
; 296 9328 HEN 
3 24 b8ee ERROR_ADDR = .ERROR; ! Set unwind address 
; 299 $339 PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 
; 300 0360 
; 301 0361 te 
; O 9206 ! Set up ARG_LIST. 
; 036 te 
> 304 0364 
; 305 0365 ARG_LIST [0] = 6; ! Three arguments 
; 306 0366 ARG_LIST af = PFy CPFVSR_PFV); | PFV address 
; 307 0367 ARG_LIST § = .VALUEO; ! Value to write 
; 308 0368 ARG_LIST : = .VALUE1; ' 
3; 309 0369 ARG_LIST (4) = .VALUE2; ' 
: 310 B37 ARG_LIST 2} = .VALUES; ' 
3 11 0371 ARG_LIST [6] = .TOTAL_WIDTH; ! Field width 
; \¢ b858 
° 1 037 14 
; 314 0374 ' Call PASSS$DO_WRITEV to do the work, giving it the address of 
3 3515 0375 ! PASSWRITE_REALE_H to call. 
He Beg 
: 18 0378 PAS$SS$DO_WRITEV (PFV CPFVSR_PFV], .MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, 
; 19 0379 PASSWRITE_REALE_H); 
; $0 $89 
: 1 81 
; $§ 386 é ; 
3 Se 03835 1 END; ! End of routine PAS$WRITEV_REALE_H 


.EXTRN PASS$$DO_WRITEV 


007¢ 00000 ENTRY PASSURITEV_REALE_H, Save R2,R3,R4,R5,R6 : 0281 

SE ee: 008 SUBL2 #52, SP ; 
E 0 CLRL ERROR_ADDR : 0336 

04 AE 7C 907 CLRO NWIND_ACT : 

6D 0043 CF DE OOO0A MOVAL 2%, (FP) : 


K 6 
PASSWRIVE_REALE Write an H floating in E format 16-Sep-1984 02:23:21 AX-11 Bliss-32 V4.0-74 
1-002 PASSWRITEV-REALE. Ho= Write H. floating in E form 132800= 138 93:83:86 PASRTL.SRCJPASWRIREH.B32; 1 
: te 
6E 30 AC DO 00014 MOVL ERROR, ERROR_ADDR 
08 AE AE : 0018 1$: MOVAB PFV, PFV_ADDR 
Moe HE REED Bath Bhs Malt Ey 
fe A 8 ORE TB 9608 ROVaValehh ae List o8, 
24 AE 1¢ AC 00 09 6 MOVL TOTAL_WIDTH> ARG_LIST+24 
; FF CF 9E MOVAB PASSWRITE_REALE_A, R5 
4 AE 3 003A MOVAB ARG_LIST, R4 
28 AC 06 a948 MOVL STRING LINE, R3 
52 04 aC C 0004 MOVZWL MAX_LENGTH, R2 
000000006 0 i6 OO4A 138 PASSS$DO_WRITEV 
a * | $84 2$: «WORD poxs nothing 
50 08 ac 00 00053 MOVL (AP), RO 
50 04 Ad 00 90037 MOVL 4(RO). RO 
C8 AO 9F 0005B PUSHAB ERROR ADDR 
CC AO 9F 0005E PUSHAB UNWIND ACT 
00 03 Bb 000g. pum, gee 
5E DD 00066 PUSHL SP 
7E 04 AC 7D 00068 MOVQ 4(AP), <(SP) 
000000006 00 03 FB 0006C CALLS #3, PASS$$IO_HANDLER 
04 00073 RET 
; Routine Size: 116 bytes, Routine Base: _PASSCODE + O0A0 


324 038 
038 


4 1 
5 1 !<BLF/PAGE> 
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PASSWRITE_REALE Write an H_floating in E for ise AX-11 Bliss-32 V4.0-7 P 
80S PASSURITEV-REALE.Ho= Urite He tloating in E form 1e-se5e1904 $3:82:60 — FAASRT Ske SpasuMtRen S251 — 


Memory Used: 81 pages 
Compi.ation Complete 


338 O38? } END ! End of module PASSWRITE_REALE_H 
9 8 0 ELUDOM 

H PSECT SUMMARY 

; Name Bytes Attributes 

: PASSCODE 276 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

i Ser.: SP oo tm > eee Syabols -<------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

3 ~$255$0UA28:CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 

; COMMAND QUALIFIERS 

: FL ISEPEMERR OY FELD INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:PASWRIREH/OBJ=O0BJ$:PASWRIREH MSRC$:PASWRIREH/UPDATE=(ENH$:PASWRIREH 
s 330 0389 0 

3 Size: 276 code + 0 data bytes 

3; Run Time: 00:07.3 

3; Elapsed Time: 00:19.6 

3; Lines/CPU Min: 3179 

3 Lexemes/CPU-Min: 15168 
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